home *** CD-ROM | disk | FTP | other *** search
/ Grapevine 10 / Grapevine 10 (Disk 2 of 3).adf / sources / GVT_Requester.s < prev    next >
Text File  |  1990-09-13  |  586b  |  35 lines
  1.     ; GVT_Requester.s by Shagratt of LSD
  2.  
  3.     ; this is distributable ONLY with GRAPEVINE ISSUE 10.
  4.  
  5.     section    ddp,code
  6.  
  7.     incdir    "dh0:includes/"
  8.     include    "libraries/gvt.i"
  9.  
  10.     ; gvt call corrupts a1,a2,a3,a4,a5,a6,d0,d1?
  11.     ; dont push regs onto stack or it guru's (!!!)
  12.  
  13.     move.l    #t1,d1
  14.     move.l    #t2,d2
  15.     lsr.l    #2,d1    ; make bptr
  16.     lsr.l    #2,d2    ; make bptr
  17.     gvtcall    $d0    ; make requester
  18.  
  19.     ; d1 = 1/0 - retry/cancel
  20.     
  21.     clr.l    d0
  22.     rts
  23.     
  24.     ; make sure following are long aligned
  25.  
  26.     cnop    0,4    ; long align
  27. t1:    dc.b    "*Volume in drive df0:",0
  28.  
  29.     cnop    0,4    ; long align
  30. t2:    dc.b    "*is covered with lard",0
  31.     
  32.     
  33.     END
  34.  
  35.